<?php
#
#
# Copyright TEDECO, 2009. http://tedeco.fi.upm.es
#
# This file is part of kumenya.
#
# Kumenya is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# Kumenya is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with Foobar.  If not, see <http://www.gnu.org/licenses/>.
#
#
#
?>
<?php
	include("../commons/classes.php");
	include("../commons/www.php");
	$isNew = TRUE;
	include(Action . "LoansFields.php");

	Interfaz::Header(_("New") . " " . _("Loan"), true);

	Interfaz::OpenBody(FALSE);

if ($result) {
	Interfaz::Form (Page. "NewLoan.php");
	Interfaz::Buttons ();
	Interfaz::SubmitButton (_("New"), TRUE);

	// LOAN'S FIELDS THAT ARE IN THE DOCUMENT
	Interfaz::CallingAction("Select");
	$DocumentFields = Interfaz::FieldsType(Loan::getField(DocumentsTable), Type); 
	Interfaz::SearchButton (_("Search") . " " . _("Documents"), Page."DocumentsSearchCriterias.php", DocumentFields, $DocumentFields);
	
	// PERSON'S FIELDS
	$personsFields = Interfaz::FieldsType(Loan::getField(PersonsTable), Type); 
	Interfaz::SearchButton (_("Search") . " " . _("People"), Page."PeopleSearchCriterias.php", PersonsFields, $personsFields);

	// LOAN'S REQUEST
	Interfaz::NavigationButton (_("Search") . " " . _("Loan"), Page."LoansSearch.php");
	
	Interfaz::CloseButtons ();

	Interfaz::Control($fields);
	Interfaz::Fields($fields, FALSE, $fields[Type]);
	Interfaz::DateFunctions();
	Interfaz::DynamicDates('StartDate', 'EndDate', 14, 'onchange', 'yyyy-MM-dd');

	Interfaz::CloseForm();
}
else {
	$error = Interfaz::Error();	
	echo _("THERE IS AN ERROR") . ": " . _($error);
}

	Interfaz::End();
?>